home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / qbwiz.exe / DEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-07-13  |  910 b   |  24 lines
  1.    REM $INCLUDE: 'QBWIZ.BI'
  2.  
  3.    ' Example program demonstrating the use of the QBWiz library.
  4.    ' You can compile and link this using the CREATE.BAT file.
  5.  
  6.    DEFINT A-Z
  7.    PRINT "This is a demo program that uses a few of the functions provided by the QBWiz"
  8.    PRINT "library, which works directly with QuickBasic 4.5 internal information."
  9.    PRINT
  10.    IF REDIRECTION% THEN
  11.       PRINT "Output has been redirected."
  12.       PRINT "No screen information will be printed."
  13.    ELSE
  14.       PRINT "Output is going to the screen."
  15.       PRINT
  16.       PRINT "Display type: "; CRT$
  17.       PRINT "Screen size :"; SCREENHEIGHT%; "by"; SCREENWIDTH%
  18.       PRINT "Current foreground color:"; FORECOLOR%
  19.       PRINT "Current background color:"; BACKCOLOR%
  20.       PRINT "The cursor is ";
  21.       IF NOT SHOWCURSOR THEN PRINT "not ";
  22.       PRINT "visible.  Its size is"; CURSORSTART; ","; CURSORSTOP
  23.    END IF
  24.